home *** CD-ROM | disk | FTP | other *** search
/ The Apple Sales & Market…urce Library 1999 January / ARL Jan 99 CD 2.iso / Application Library / Networking & Communications / Portfolio™ 4.0 / Scripting Extras / Set Desktop Pattern.txt < prev   
Encoding:
Text File  |  1998-09-15  |  2.9 KB  |  80 lines  |  [TEXT/ToyS]
  1.  
  2. -- 1.02 - Check to make sure we are operating under MacOS 8.0 or above
  3. set vrs to version of application "Finder"
  4. if (vrs does not start with "8.1") and (vrs does not start with "8.0") then
  5.     display dialog ¬
  6.         "This script requires system 8.0 or higher." buttons {"OK"} default button {"OK"}
  7.     return
  8. end if
  9.  
  10. -- 1.02 - Check to make sure Portfolio is running
  11. tell application "Finder"
  12.     set P_app to every process whose name contains "Portfolio"
  13.     if P_app is {} then
  14.         display dialog ¬
  15.             "Portfolio must be running for this script to operate." buttons {"OK"} default button {"OK"}
  16.         return
  17.     end if
  18. end tell
  19.  
  20.  
  21. tell application "Portfolio"
  22.     -- Go to Portfolio and find out how many items are selected in the current gallery.
  23.     set theCount to count every record of selection of front gallery
  24.     
  25.     -- If no items are selected, we need to ask the user to select something and then quit.
  26.     if theCount = 0 then
  27.         display dialog ¬
  28.             "Please select one or more items in the gallery and rerun the command." buttons {"OK"} default button {"OK"}
  29.         return
  30.     end if
  31.     
  32.     --Get the path of the first record in the selection
  33.     set pth to path of first record of the selection of front gallery
  34. end tell
  35.  
  36.  
  37. -- 1.01 - Parse Portfolio's path if it is up on a server to strip the server name.
  38. if pth starts with "::" then
  39.     set the text item delimiters to {":"}
  40.     set argCnt to (the count of text items in pth)
  41.     set pth to (text items 4 through argCnt in (pth)) as string
  42. end if
  43.  
  44. -- Determine whether the original file exists. If it does not, display an error and quit.
  45. tell application "Finder"
  46.     if not (exists file pth) then
  47.         display dialog "Could not find the original file. Try updating the Portfolio record." buttons {"OK"}
  48.         return
  49.     end if
  50.     
  51.     -- 1.01:  Get the file type to determine whether it is acceptable
  52.     -- We'll accept jpeg, gif, and pict.
  53.     set fType to file type of file pth
  54.     if {"JPEG", "GIFf", "PICT"} does not contain fType then
  55.         display dialog "This file type will not work with Desktop Pictures. You must use a PICT, JPEG, or GIF." buttons {"OK"}
  56.         return
  57.     end if
  58.     
  59. end tell
  60.  
  61. -- Find out how the user wants the image displayed. Desktop Pictures actually allows for 5 settings,
  62. -- but only three buttons are allowed in the standard dialog.
  63. set theResult to display dialog "Choose how to display this image:" buttons {"Tiled", "Centered", "Scaled"} default button {"Centered"}
  64. set chooseButton to the button returned of theResult
  65.  
  66.  
  67. -- Use Desktop Pictures control panel to set the picture, based on the display choice.
  68. tell application "Desktop Pictures"
  69.     if chooseButton = "Tiled" then
  70.         set desktop picture to (pth as alias) positioning tiled
  71.     else if chooseButton = "Centered" then
  72.         set desktop picture to (pth as alias) positioning centered
  73.     else if chooseButton = "Scaled" then
  74.         set desktop picture to (pth as alias) positioning scaled
  75.     else if chooseButton = "Filling Screen" then
  76.         set desktop picture to (pth as alias) positioning filling screen
  77.     end if
  78.     quit
  79. end tell
  80.